home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / mep1 / External Functions / XCMDs⁄XFCNs / Globals.icn next >
Encoding:
Text File  |  1990-11-24  |  288 b   |  13 lines  |  [TEXT/PICN]
  1. # GetGlobal - Retrieve Hypercard interface global.
  2.  
  3. procedure GetGlobal(globname)
  4.    return callout("XFCN", "GetGlobal", globname)
  5. end
  6.  
  7.  
  8. # SetGlobal - Set Hypercard interface global.
  9.  
  10. procedure SetGlobal(globname, globvalue)
  11.    return callout("XFCN","SetGlobal", globname, globvalue)
  12. end
  13.